home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_89380.txt < prev    next >
Text File  |  1990-08-14  |  12KB  |  566 lines
  1. -- card: 89380 from stack: in
  2. -- bmap block id: 90131
  3. -- flags: 4000
  4. -- background id: 69011
  5. -- name: Exceptions
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global buttonName, buttonList
  9.   put the long date into field date
  10.   get item 2 to 3 of the abbrev date
  11.   put empty into first char of it
  12.   put it into card field "From"
  13.   put it into card field "To"
  14.   set hilite of background button id buttonName to false
  15.   repeat with index = 1 to the number of lines of buttonList
  16.     set hilite of background button id line index of buttonList to false
  17.   end repeat
  18. end openCard
  19.  
  20. on closeCard
  21.   global buttonName, buttonList
  22.   set hilite of background button id buttonName to true
  23.   repeat with index = 1 to the number of lines of buttonList
  24.     set hilite of background button id line index of buttonList to true
  25.   end repeat
  26.   repeat with index = 7 to 11
  27.     set hilite of button id index to false
  28.   end repeat
  29.   set hilite of button id 12 to true
  30.   set hilite of button id 13 to false
  31.   set hilite of button id 14 to false
  32.   set hilite of button id 15 to true
  33.   set hilite of button id 16 to false
  34.   set hilite of button id 17 to false
  35.   set hilite of button id 18 to true
  36.   set hilite of button id 19 to false
  37.   set hilite of button id 20 to false
  38.   put empty into card field id 21
  39.   put empty into card field id 22
  40.   put empty into card field id 23
  41.   put empty into card field id 24
  42. end closeCard
  43.  
  44. on groupOne
  45.   if the shiftKey is down then
  46.     set hilite of target to not hilite of target
  47.   else
  48.     lock screen
  49.     repeat with index = 7 to 11
  50.       set hilite of button id index to false
  51.     end repeat
  52.     set hilite of target to true
  53.     unlock screen
  54.   end if
  55. end groupOne
  56.  
  57.  
  58.  
  59. -- part 1 (button)
  60. -- low flags: 00
  61. -- high flags: 0000
  62. -- rect: left=0 top=0 right=342 bottom=512
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 1
  66. -- font id: 0
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 16
  70. -- part name: 
  71.  
  72.  
  73. -- part 2 (button)
  74. -- low flags: 00
  75. -- high flags: 0000
  76. -- rect: left=66 top=29 right=46 bottom=152
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Students
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   lock screen
  88.   go to card short name of me of this stack
  89.   unlock screen
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 3 (button)
  95. -- low flags: 00
  96. -- high flags: 0000
  97. -- rect: left=156 top=29 right=46 bottom=242
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Periods
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   lock screen
  109.   go to card short name of me of this stack
  110.   unlock screen
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 4 (button)
  116. -- low flags: 00
  117. -- high flags: 0000
  118. -- rect: left=336 top=29 right=46 bottom=422
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Format
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   lock screen
  130.   go to card short name of me of this stack
  131.   unlock screen
  132. end mouseUp
  133.  
  134.  
  135.  
  136. -- part 5 (button)
  137. -- low flags: 00
  138. -- high flags: 2000
  139. -- rect: left=81 top=273 right=291 bottom=159
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: Print
  148. ----- HyperTalk script -----
  149. on mouseUp
  150.   lock screen
  151.   go to card "Exception Report" of this background
  152.   unlock screen
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 6 (button)
  158. -- low flags: 00
  159. -- high flags: 2000
  160. -- rect: left=191 top=273 right=291 bottom=269
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: Cancel
  169. ----- HyperTalk script -----
  170. on mouseUp
  171.   lock screen
  172.   pop card
  173.   unlock screen
  174. end mouseUp
  175.  
  176.  
  177.  
  178. -- part 7 (button)
  179. -- low flags: 00
  180. -- high flags: 0000
  181. -- rect: left=66 top=95 right=109 bottom=259
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: 
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   groupOne
  193. end mouseUp
  194.  
  195.  
  196.  
  197. -- part 8 (button)
  198. -- low flags: 00
  199. -- high flags: 0000
  200. -- rect: left=66 top=109 right=123 bottom=259
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 0 / 0
  203. -- text alignment: 1
  204. -- font id: 0
  205. -- text size: 12
  206. -- style flags: 0
  207. -- line height: 16
  208. -- part name: 
  209. ----- HyperTalk script -----
  210. on mouseUp
  211.   groupOne
  212. end mouseUp
  213.  
  214.  
  215.  
  216. -- part 9 (button)
  217. -- low flags: 00
  218. -- high flags: 0000
  219. -- rect: left=66 top=123 right=137 bottom=259
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 0 / 0
  222. -- text alignment: 1
  223. -- font id: 0
  224. -- text size: 12
  225. -- style flags: 0
  226. -- line height: 16
  227. -- part name: 
  228. ----- HyperTalk script -----
  229. on mouseUp
  230.   groupOne
  231. end mouseUp
  232.  
  233.  
  234.  
  235. -- part 10 (button)
  236. -- low flags: 00
  237. -- high flags: 0000
  238. -- rect: left=66 top=137 right=151 bottom=259
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 1
  242. -- font id: 0
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: 
  247. ----- HyperTalk script -----
  248. on mouseUp
  249.   groupOne
  250. end mouseUp
  251.  
  252.  
  253.  
  254. -- part 11 (button)
  255. -- low flags: 00
  256. -- high flags: 0000
  257. -- rect: left=66 top=151 right=165 bottom=259
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 0
  264. -- line height: 16
  265. -- part name: 
  266. ----- HyperTalk script -----
  267. on mouseUp
  268.   groupOne
  269. end mouseUp
  270.  
  271.  
  272.  
  273. -- part 12 (button)
  274. -- low flags: 00
  275. -- high flags: C006
  276. -- rect: left=314 top=102 right=118 bottom=408
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 1
  280. -- font id: 0
  281. -- text size: 12
  282. -- style flags: 0
  283. -- line height: 16
  284. -- part name: Male
  285. ----- HyperTalk script -----
  286. on mouseUp
  287.   set hilite of button id 13 to false
  288.   set hilite of button id 14 to false
  289.   set hilite of me to true
  290. end mouseUp
  291.  
  292.  
  293.  
  294. -- part 13 (button)
  295. -- low flags: 00
  296. -- high flags: 8006
  297. -- rect: left=314 top=118 right=134 bottom=408
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 0 / 0
  300. -- text alignment: 1
  301. -- font id: 0
  302. -- text size: 12
  303. -- style flags: 0
  304. -- line height: 16
  305. -- part name: Female
  306. ----- HyperTalk script -----
  307. on mouseUp
  308.   set hilite of button id 12 to false
  309.   set hilite of button id 14 to false
  310.   set hilite of me to true
  311. end mouseUp
  312.  
  313.  
  314.  
  315. -- part 14 (button)
  316. -- low flags: 00
  317. -- high flags: 8006
  318. -- rect: left=314 top=134 right=150 bottom=408
  319. -- title width / last selected line: 0
  320. -- icon id / first selected line: 0 / 0
  321. -- text alignment: 1
  322. -- font id: 0
  323. -- text size: 12
  324. -- style flags: 0
  325. -- line height: 16
  326. -- part name: Both
  327. ----- HyperTalk script -----
  328. on mouseUp
  329.   set hilite of button id 12 to false
  330.   set hilite of button id 13 to false
  331.   set hilite of me to true
  332. end mouseUp
  333.  
  334.  
  335.  
  336. -- part 15 (button)
  337. -- low flags: 00
  338. -- high flags: C006
  339. -- rect: left=314 top=174 right=190 bottom=408
  340. -- title width / last selected line: 0
  341. -- icon id / first selected line: 0 / 0
  342. -- text alignment: 1
  343. -- font id: 0
  344. -- text size: 12
  345. -- style flags: 0
  346. -- line height: 16
  347. -- part name: Active
  348. ----- HyperTalk script -----
  349. on mouseUp
  350.   set hilite of button id 16 to false
  351.   set hilite of button id 17 to false
  352.   set hilite of me to true
  353. end mouseUp
  354.  
  355.  
  356.  
  357. -- part 16 (button)
  358. -- low flags: 00
  359. -- high flags: 8006
  360. -- rect: left=314 top=190 right=206 bottom=408
  361. -- title width / last selected line: 0
  362. -- icon id / first selected line: 0 / 0
  363. -- text alignment: 1
  364. -- font id: 0
  365. -- text size: 12
  366. -- style flags: 0
  367. -- line height: 16
  368. -- part name: Inactive
  369. ----- HyperTalk script -----
  370. on mouseUp
  371.   set hilite of button id 15 to false
  372.   set hilite of button id 17 to false
  373.   set hilite of me to true
  374. end mouseUp
  375.  
  376.  
  377.  
  378. -- part 17 (button)
  379. -- low flags: 00
  380. -- high flags: 8006
  381. -- rect: left=314 top=206 right=222 bottom=408
  382. -- title width / last selected line: 0
  383. -- icon id / first selected line: 0 / 0
  384. -- text alignment: 1
  385. -- font id: 0
  386. -- text size: 12
  387. -- style flags: 0
  388. -- line height: 16
  389. -- part name: Both
  390. ----- HyperTalk script -----
  391. on mouseUp
  392.   set hilite of button id 15 to false
  393.   set hilite of button id 16 to false
  394.   set hilite of me to true
  395. end mouseUp
  396.  
  397.  
  398.  
  399. -- part 18 (button)
  400. -- low flags: 00
  401. -- high flags: C006
  402. -- rect: left=314 top=244 right=260 bottom=408
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 0 / 0
  405. -- text alignment: 1
  406. -- font id: 0
  407. -- text size: 12
  408. -- style flags: 0
  409. -- line height: 16
  410. -- part name: Excused
  411. ----- HyperTalk script -----
  412. on mouseUp
  413.   set hilite of button id 19 to false
  414.   set hilite of button id 20 to false
  415.   set hilite of me to true
  416. end mouseUp
  417.  
  418.  
  419.  
  420. -- part 19 (button)
  421. -- low flags: 00
  422. -- high flags: 8006
  423. -- rect: left=314 top=260 right=276 bottom=408
  424. -- title width / last selected line: 0
  425. -- icon id / first selected line: 0 / 0
  426. -- text alignment: 1
  427. -- font id: 0
  428. -- text size: 12
  429. -- style flags: 0
  430. -- line height: 16
  431. -- part name: Unexcused
  432. ----- HyperTalk script -----
  433. on mouseUp
  434.   set hilite of button id 18 to false
  435.   set hilite of button id 20 to false
  436.   set hilite of me to true
  437. end mouseUp
  438.  
  439.  
  440.  
  441. -- part 20 (button)
  442. -- low flags: 00
  443. -- high flags: 8006
  444. -- rect: left=314 top=276 right=292 bottom=408
  445. -- title width / last selected line: 0
  446. -- icon id / first selected line: 0 / 0
  447. -- text alignment: 1
  448. -- font id: 0
  449. -- text size: 12
  450. -- style flags: 0
  451. -- line height: 16
  452. -- part name: Both
  453. ----- HyperTalk script -----
  454. on mouseUp
  455.   set hilite of button id 18 to false
  456.   set hilite of button id 19 to false
  457.   set hilite of me to true
  458. end mouseUp
  459.  
  460.  
  461.  
  462. -- part 21 (field)
  463. -- low flags: 00
  464. -- high flags: 0000
  465. -- rect: left=134 top=185 right=203 bottom=171
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 0 / 0
  468. -- text alignment: 0
  469. -- font id: 0
  470. -- text size: 12
  471. -- style flags: 0
  472. -- line height: 16
  473. -- part name: 
  474.  
  475.  
  476. -- part 22 (field)
  477. -- low flags: 00
  478. -- high flags: 0000
  479. -- rect: left=209 top=185 right=203 bottom=246
  480. -- title width / last selected line: 0
  481. -- icon id / first selected line: 0 / 0
  482. -- text alignment: 0
  483. -- font id: 0
  484. -- text size: 12
  485. -- style flags: 0
  486. -- line height: 16
  487. -- part name: 
  488.  
  489.  
  490. -- part 23 (field)
  491. -- low flags: 00
  492. -- high flags: 0000
  493. -- rect: left=113 top=213 right=231 bottom=214
  494. -- title width / last selected line: 0
  495. -- icon id / first selected line: 0 / 0
  496. -- text alignment: 0
  497. -- font id: 0
  498. -- text size: 12
  499. -- style flags: 0
  500. -- line height: 16
  501. -- part name: From
  502.  
  503.  
  504. -- part 24 (field)
  505. -- low flags: 00
  506. -- high flags: 0000
  507. -- rect: left=113 top=237 right=255 bottom=214
  508. -- title width / last selected line: 0
  509. -- icon id / first selected line: 0 / 0
  510. -- text alignment: 0
  511. -- font id: 0
  512. -- text size: 12
  513. -- style flags: 0
  514. -- line height: 16
  515. -- part name: To
  516.  
  517.  
  518. -- part contents for background part 28
  519. ----- text -----
  520. Abrosimoff, Mich‚Ķ
  521. Adams, Bryan
  522. Alexander, Rick
  523. Alexander, Susan
  524. Allsop, Blair M.
  525. Azimov, Isaac
  526. Barisoff, Larissa
  527. Bunyan, Paul
  528. Burnyeat, Grant
  529. Caldwell, Brian
  530.  
  531.  
  532.  
  533. -- part contents for background part 29
  534. ----- text -----
  535. 47
  536. 80
  537. 53
  538. 54
  539. 52
  540. 102
  541. 48
  542. 13
  543. 94
  544. 93
  545.  
  546. -- part contents for background part 30
  547. ----- text -----
  548. Present
  549. Present
  550. Present
  551. Present
  552. Present
  553. Present
  554. Present
  555. Present
  556. Present
  557. Present
  558.  
  559.  
  560. -- part contents for background part 33
  561. ----- text -----
  562. 0 students selected
  563.  
  564. -- part contents for background part 31
  565. ----- text -----
  566. Monday, September 4, 1989